BBS in a Box 7/BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso/Files/Tele/T/The Survey Editor2.0.HC.cpt/The Survey Editor 2.0/stack_-1.xml

Extensible Markup Language | 1990-01-30 | 12KB | 16 lines

<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
    <name>in.0</name>
    <id>-1</id>
    <cardCount>4</cardCount>
    <cardID>2955</cardID>
    <listID>3733</listID>
    <cantModify><false /></cantModify>
    <cantDelete><false /></cantDelete>
    <cantAbort><false /></cantAbort>
    <cardSize>
        <width>512</width>
        <height>342</height>
    </cardSize>
    <script>on openStackset cursor to watchif the version < 1.2 thenanswer "Sorry, I need HyperCard 1.2 or greater."set lockMessages to truego homeexit openStackend ifhide menuBarglobal User_levelput the userlevel into User_levelset the userlevel to 5global commandLISTput cd field "commandLIST" into commandLISTput "About...,(-,New,Open.../A,(-,Save,Save As.../W,Revert,(-,Print...," & ¬"Print Code...,(-,Show All Code/G,Show Code of a Line..." into EditorMenuput "Add,Insert,Replace,Edit,Delete,(-,Label Above Command" into CommandsMenuput "Bell,Tab,Clear Screen,Backspace,(-,Other..." into CtrlMENUmenuHandler "add","Editor",EditorMenumenuHandler "add","Commands",CommandsMenumenuHandler "add","Insert Control...",CtrlMENUmenuHandler "hide","Insert Control...",CtrlMENUif the hilite of cd btn "label above command" is true thenrepeat with x = 2 to 5menuHandler "disable","commands",xend repeatmenuHandler "disable","Editor",13menuHandler "mark","commands","Label Above Command","check"end ifend openStackon CloseStacklock screenset cursor to watchgo cd 1if cd field id 99 ≠ ""then set the hilite of cd btn id (item 1 of cd field id 99) to falseput "" into cd field id 99menuHandler "delete","Editor"menuHandler "delete","Commands"menuHandler "delete","Insert Control..."if the freesize of this stack > 25000 then domenu "compact stack"global User_levelset the userlevel to User_levelshow menubarend CloseStackFunction lineClickedreturn (trunc(((scroll of the target) ¬+ (item two of the clickloc) ¬- (item two of the rect of the target)) ¬div the textheight of the target) + one)end lineClickedfunction realName fichierput "" into applNamerepeat with x = the number of chars in fichier down to 1if char x of fichier = ":" thenexit repeatelseput char x of fichier before applNameend ifend repeatreturn applNameend realnameFunction theLineClicked clickLicreturn (trunc(((scroll of cd field "survey") ¬+ (item two of clickLic) ¬- (item two of the rect of cd field "survey")) ¬div the textheight of cd field "survey") + one)end theLineClickedfunction compute name,tType,text,length,branchglobal commandLISTput "" into displayStringput "0,5,6,8,18,37,38,43,44,45,46" into exceptionsrepeat with x = 1 to 11if tType = item x of exceptions thenput line (tType+1) of commandLIST into displayStringif name ≠ "" thenput "  •" && name && "•" after displayStringend ifreturn displayStringexit computeend ifend repeatif tType = 1 thenif length = 0 thenput "Display “" & text & "” with a CR"  after displayStringelseput "Display “" & text & "” with no CR"  after displayStringend ifend ifif tType = 2 thenput "Branch immediately to “" & branch & "”" into displayStringend ifif tType = 3 thenput "If last input contains “" & text & "”, branch to “" & ¬branch & "”" into displayStringend ifif tType = 4 thenput "If last input was empty, branch to “" & ¬branch & "”" into displayStringend ifif tType = 7 thenput "Stop execution of the Survey file and return to the last " & ¬"Red Ryder Host menu." into displayStringend ifif tType = 9 thenput "Get input [" & length & "] from the user." into displayStringif text ≠ "" thenput "Display “" & text & "” and " before displayStringend ifend ifif tType = 10 thenput "Get 'Y' or 'N' from the user." into displayStringif text ≠ "" thenput "Display “" & text & "” and " before displayStringend ifend ifif tType = 11 thenput "Get a CR from the user." into displayStringif text ≠ "" thenput "Display “" & text & "” and " before displayStringend ifend ifif tType = 12 thenput "Display “" & text & "” with CR to the scratch file." into displayStringend ifif tType = 13 thenput "Display “" & text & "” with no CR to the scratch file." into displayStringend ifif tType = 14 thenput "Raise current caller's time limit for this call only to " ¬& length into displayStringend ifif tType = 15 thenput "Raise current caller's time limit permanently to " ¬& length into displayStringend ifif tType = 16 thenput "Set the caller's clearance level for this for this call only to " ¬& length into displayStringend ifif tType = 17 thenput "Set the caller's clearance level permanently to " ¬& length into displayStringend ifif tType = 19 thenput "Write the value of ASCII character “" ¬& text & "” to the response file." into displayStringend ifif tType = 20 thenput "Clear out the scratch file and branch to “" ¬& branch & "”" into displayStringend ifif tType = 21 thenput "If the user's down/upload ratio is less than " & text ¬& ", then branch to “" & branch & "”" into displayStringend ifif tType = 22 thenput "Temporarily sets the current caller's restriction flag " ¬& "number " & text into displayStringend ifif tType = 23 thenput "Permanently sets the current caller's restriction flag " ¬& "number " & text into displayStringend ifif tType = 24 thenput "Temporarily resets the current caller's restriction flag " ¬& "number " & text into displayStringend ifif tType = 25 thenput "Permanently resets the current caller's restriction flag " ¬& "number " & text into displayStringend ifif tType = 26 or tType = 27 ¬or tType = 28 or tType = 29 thenput "Display TEXT file “" & realName(text) into displayStringif tType = 26 then put "” (Cancellable, no prompts)" after displayStringif tType = 27 then put "” (Cancellable, all prompts)" after displayStringif tType = 28 then put "” (Not cancellable, all prompts)" after displayStringif tType = 29 then put "” (Cancellable, only final prompts)" after displayStringend ifif tType = 30 thenput "Create a Special Scratch File and allocate " & text ¬& " accumulators."into displayStringend ifif tType = 31 thenput "Add " & item 1 of text & " to the Special Scratch File " & ¬"accumulator " & item 2 of text into displayStringend ifif tType = 32 thenput "Add the contents of Special Scratch accumulator " & ¬item 1 of text & " to the Special Scratch File " & ¬"accumulator " & item 2 of text into displayStringend ifif tType = 33 thenput "Display the string equivalent of the Special Scratch file " &¬"accumulator " & text & " with a CR." into displayStringend ifif tType = 34 thenput "Display the string equivalent of the .CNT file " &¬"accumulator " & text & " with a CR." into displayStringend ifif tType = 35 thenput "Display the string equivalent of the Special Scratch file " &¬"accumulator " & text & " with no CR." into displayStringend ifif tType = 36 thenput "Display the string equivalent of the .CNT file " &¬"accumulator " & text & " with no CR." into displayStringend ifif tType = 39 thenput "If current caller's name appears in .CNT file, execute " &¬"the survey: “" & realName(branch) & "”." into displayStringend ifif tType = 40 thenput "Put " & item 2 of text & " into the Special " &¬"Scratch accumulator " & item 1 of text into displayStringend ifif tType = 41 thenput "Display the percentage that .CNT file accumulator " &¬item 1 of text & " is of .CNT file acc. " ¬& item 2 of text & " with a CR." into displayStringend ifif tType = 42 thenput "Display the percentage that .CNT file accumulator " &¬item 1 of text & " is of .CNT file acc. " ¬& item 2 of text & " with no CR." into displayStringend ifif name ≠ "" thenput "  •" && name && "•" after displayStringend ifreturn displayStringend computeon command commandNumber,displayStringput return into rlock screenif commandNumber = 0 thenput "" & r & "" & r & "0" & r & "" & r & ¬"" & r & "" into commandWRTstrg command,displayString,¬line 1 of cd field "action",line 2 of cd field "action"exit commandend ifif commandNumber = 1 thengo cd "input"initiate true,"Label:",false,"",false,"",true,¬"Text to display...",true,false,1,displayStringexit commandend ifif commandNumber = 2 thengo cd "input"initiate false,"",false,"",true,"Branch to:",false,¬"",false,false,2,displayStringexit commandend ifif commandNumber = 3 thengo cd "input"initiate true,"Label:",false,"",true,¬"Branch to:",true,"Text to verify...",false,false,3,displayStringexit commandend ifif commandNumber = 4 thengo cd "input"initiate false,"",false,"",true,¬"Branch to:",false,"",false,false,4,displayStringexit commandend ifif commandNumber = 5 ¬or commandNumber = 6 thenput "" & r & "" & r & commandNumber & r & "" & r & ¬"" & r & "" into commandWRTstrg command,displayString,¬line 1 of cd field "action",line 2 of cd field "action"exit commandend ifif commandNumber = 7 thengo cd "input"initiate true,"Label:",false,"",false,¬"",false,"",false,false,7,displayStringexit commandend ifif commandNumber = 8 thenput "" & r & "" & r & "8" & r & "" & r & ¬"" & r & "" into commandWRTstrg command,displayString,¬line 1 of cd field "action",line 2 of cd field "action"exit commandend ifif commandNumber = 9 thengo cd "input"initiate true,"Label:",true,"Length Maximum:",false,"",true,¬"Display this text (empty if nothing)...",false,false,9,displayStringexit commandend ifif commandNumber = 10 thengo cd "input"initiate true,"Label:",true,"Length:",false,¬"",true,"Display this text (empty if nothing)..."¬,false,false,10,displayStringput "1" into cd field "length"exit commandend ifif commandNumber = 11 thengo cd "input"initiate true,"Label:",false,"",false,¬"",true,"Display this text (empty if nothing)..."¬,false,false,11,displayStringput "1" into cd field "length"exit commandend ifif commandNumber = 12 thengo cd "input"initiate true,"Label:",false,"",false,¬"",true,"Text to display...",false,false,12,displayStringput "1" into cd field "length"exit commandend ifif commandNumber = 13 thengo cd "input"initiate true,"Label:",false,"",false,¬"",true,"Text to display...",false,false,13,displayStringput "1" into cd field "length"exit commandend ifif commandNumber = 14 or commandNumber = 15 thengo cd "input"initiate true,"Label:",true,"New Time Limit:",false,¬"",false,"",false,false,commandNumber,displayStringput "1" into cd field "length"exit commandend ifif commandNumber = 16 or commandNumber = 17 thengo cd "input"initiate true,"Label:",true,"New Level:",false,¬"",false,"",false,false,commandNumber,displayStringput "1" into cd field "length"exit commandend ifif commandNumber = 18 thenput fileName("MENU","Select the menu to return to...") into textif text is empty then exit commandput "Stop the survey and return to RRH menu “" & text & "”"¬into displayStringput "" & r & "" & r & "18" & r & text & r & ¬"" & r & "" into commandWRTstrg command,displayString,¬line 1 of cd field "action",line 2 of cd field "action"exit commandend ifif commandNumber = 19 thengo cd "input"initiate true,"Label:",false,"",false,"",true,¬"ASCII character to write...",false,false,19,displayStringexit commandend ifif commandNumber = 20 thengo cd "input"initiate false,"",false,"",true,¬"Clear out the scratch file and branch to:",false,¬"",false,false,20,displayStringexit commandend ifif commandNumber = 21 thengo cd "input"initiate true,"Label:",false,"",true,"Branch:",true,¬"User's download to upload ratio...",